Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00227.ls

Text File | 1997-07-10 | 963 b | 26 lines

on mmButton menuObj, params
  set spritenum to getaProp(params, #spritenum)
  if voidp(spritenum) then
    set spritenum to GetGlobal(#mmButton)
  end if
  set downMember to getProp(params, #downMember)
  ClickDownButton(menuObj, [#hotSprites: [spritenum], #downMember: downMember, #statusMessage: "Go to Main Menu.", #destination: "main"])
end

on quitButton menuObj, params
  set spritenum to getaProp(params, #spritenum)
  if voidp(spritenum) then
    set spritenum to GetGlobal(#quitButton)
  end if
  set downMember to getProp(params, #downMember)
  set destination to getaProp(params, #destination)
  if voidp(destination) then
    set destination to "quit"
  end if
  set statusMessage to getaProp(params, #statusMessage)
  if voidp(statusMessage) then
    set statusMessage to "Quit Ultra Game Players."
  end if
  ClickDownButton(menuObj, [#hotSprites: [spritenum], #downMember: downMember, #statusMessage: statusMessage, #destination: destination])
end